home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / parallax / mac_sit.hqx / Parallaxis 2.11 / prim.z < prev    next >
Text File  |  1992-01-09  |  847b  |  32 lines
  1. START
  2. 200 PE
  3. 0 PORTS
  4. SCALAR     I1
  5. VECTOR     I1 B1 I1 B1
  6.     1  :    GOTO 4;
  7.     2  :    PROC 1;
  8.         ERROR "division by 0";
  9.         RETURN;
  10.     3  :    PROC 1;    configuration : LIST
  11.         VI0:1 := ID - 1; for LIST calculating DIMi      DIM1
  12.         RETURN;    configuration : LIST
  13.     4!9  :    CALL 3; line 9 column 3 
  14.     5!10  :    VB0:1 := ID >= 2; line 10 column 6 
  15.     6!11  :    WHILE VB0:1 CALL 8; line 11 column 6 
  16.     7  :    GOTO 21;
  17.     8  :    PROC 1;
  18.     9!12  :    SI0:1 := REDUCE FIRST OF ID; FIRST line 12 column 9 
  19.    10!13  :    WRITE SI0:1 10; line 13 column 9 
  20.    11!13  :    WRITE EOL; line 13 column 29 
  21.    12!14  :    IF SI0:1 = 0 CALL 2; line 14 column 9 
  22.    13  :    VI0:2 := ID MOD SI0:1;
  23.    14  :    VB0:2 := VI0:2 = 0;
  24.    15  :    IF VB0:2 CALL 17;
  25.    16  :    GOTO 20;
  26.    17  :    PROC 1;
  27.    18!15  :    VB0:1 := FALSE; line 15 column 17 
  28.    19  :    RETURN;
  29.    20  :    RETURN;
  30.    21  :    END;    SIEVE
  31. STOP
  32.